home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / xlib.zip / XDRIVE.INT < prev    next >
Text File  |  1992-09-06  |  2KB  |  59 lines
  1. (*****************************************************************************)
  2. (*                                                                           *)
  3. (*        filename        : XDRIVE.PAS                                       *)
  4. (*        author          : Stefan Boether / Compuserve Id : 100023,275      *)
  5. (*                                                 FidoNet :  2:242/200      *)
  6. (*                                                 FidoNet :  2:243/91       *)
  7. (*                                  Internet: 100023.275@CompuServe.COM      *)
  8. (*                                        Maus-Net: Stefan Böther @ HRO      *)
  9. (*        system          : TURBO 6.01 / TPW 1.5 / DOS 3.3 / WIN 3.1         *)
  10. (*        changes         :                                                  *)
  11. (*        when    what                                                who    *)
  12. (*---------------------------------------------------------------------------*)
  13. (*****************************************************************************)
  14. (*  Description :  An object for the drives in the computer                  *)
  15. (*****************************************************************************)
  16. {Header-End}
  17.  
  18. unit XDrive;
  19.  
  20. {$IFNDEF Windows} {$O+} {$ENDIF}
  21. {$D-,L-}
  22.  
  23. interface
  24.  
  25. uses {$ifdef Windows}  WinDos, DPMI, WObjects;
  26.      {$else}           Dos, Objects;
  27.      {$endif}
  28.  
  29. const dcFloppy360    = 1;
  30.       dcFloppy720    = 2;
  31.       dcFloppy12     = 3;
  32.       dcFloppy144    = 4;
  33.       dcOtherFloppy  = 5;
  34.       dcBernoulli    = 6;
  35.       dcHardDisk     = 7;
  36.       dcRamDisk      = 8;
  37.       dcSubstDrive   = 9;
  38.       dcUnknownDisk  = 10;
  39.       dcInvalidDrive = 11;
  40.  
  41. type  PDrive = ^TDrive;
  42.       TDrive = object(TObject)
  43.         Drv : Char;
  44.         constructor Init( ADrv:Char );
  45.         constructor InitProgramDrive;
  46.         constructor InitCurrentDrive;
  47.         constructor InitBootDrive;
  48.         function    GetCode:Byte;     virtual;
  49.         function    GetPlace:Longint; virtual;
  50.         function    GetSize:Longint;  virtual;
  51.         function    GetLabel:PathStr; virtual;
  52.         function    GetClass:Word;    virtual;
  53.         function    Exists:Boolean;   virtual;
  54.         function    IsClosed:Boolean; virtual;
  55.         function    IsOnNet:Boolean;  virtual;
  56.         procedure   Reset;            virtual;
  57.       end;
  58.  
  59.